home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / util / libs / ReqToolsUsr.lha / ReqTools / Install ReqTools < prev    next >
Encoding:
Text File  |  1997-01-14  |  29.1 KB  |  1,143 lines
  1. ;
  2. ; $VER: Install ReqTools 2.8 (14.1.97)
  3. ;
  4. ; Installer script for ReqTools.
  5. ;
  6.  
  7. (set #danish-lang        1)
  8. (set #german-lang        2)
  9. (set #english-lang       4)
  10. (set #spanish-lang       8)
  11. (set #french-lang       16)
  12. (set #italian-lang      32)
  13. (set #hungarian-lang    64)
  14. (set #dutch-lang       128)
  15. (set #norwegian-lang   256)
  16. (set #polish-lang      512)
  17. (set #portugues-lang  1024)
  18. (set #russian-lang    2048)
  19. (set #serbian-lang    4096)
  20. (set #finnish-lang    8192)
  21. (set #swedish-lang   16384)
  22. (set #czech-lang     32768)
  23.  
  24.  
  25. ; Get current language (no need for lots of silly icons! ;). However, this
  26. ; won't properly work for all versions of the Installer. Some don't
  27. ; understand the language "default" in the tool types... :/
  28.  
  29. (if (= (exists "Env:Language") 1)
  30.     ; GetEnv reports "String too long" if the variable doesn't exist! :/
  31.     ; Dunno if this is fixed in V43... But we need to check anyway.
  32.     (set @language (getenv "language"))
  33. )
  34.  
  35.  
  36. ;**************************************************************************
  37. ;
  38. ; English strings
  39. ;
  40.  
  41. (set #default-lang #english-lang)
  42.  
  43. (set #builtin-lang "(built in)")
  44.  
  45. (set #bad-kick
  46.     "You must have AmigaOS Release 2.04 or higher to use ReqTools."
  47. )
  48.  
  49. (set #welcome
  50.     (cat
  51.         "\n\nWelcome to the ReqTools installation utility.\n\n"
  52.         "This program lets you install ReqTools and related "
  53.         "programs on your Amiga.\n\n"
  54.         "Read ReqTools.guide for information on the "
  55.         "distribution and commercial usage of ReqTools.\n\n"
  56.         "ReqTools © 1991-94 Nico François, 1995-97 Magnus Holmgren."
  57.     )
  58. )
  59.  
  60. (set #install-parts "Please select the parts you wish to install")
  61.  
  62. (set #item-library "reqtools.library")
  63.  
  64. (set #item-prefs "ReqTools preferences")
  65.  
  66. (set #item-ca-prefs "ReqTools preferences using ClassAct")
  67.  
  68. (set #item-guide "ReqTools.guide")
  69.  
  70. (set #item-locale "Translations")
  71.  
  72. (set #item-patch "RTPatch")
  73.  
  74. (set #parts-header-help
  75.     (cat
  76.         "    Here you select the different parts of ReqTools that you would like to "
  77.         "install. After that, you select the details of the installation (such as "
  78.         "where the different files should be installed). You may choose to install "
  79.         "the following items:\n"
  80.     )
  81. )
  82.  
  83. (set #item-library-help
  84.     (cat
  85.         "    ReqTools.library: This is the central part of ReqTools. A so called "
  86.         "shared library containing the available (requester) functions.\n"
  87.     )
  88. )
  89.  
  90. (set #item-prefs-help
  91.     (cat
  92.         "    ReqTools preferences: With this program you can fine-tune how the "
  93.         "different ReqTools requesters should behave, though the programs "
  94.         "actually using ReqTools have the final word on this.\n"
  95.     )
  96. )
  97.  
  98. (set #item-ca-prefs-help
  99.     (cat
  100.         "    ReqTools preferences using ClassAct: This program does the same "
  101.         "as ReqTools preferences. The difference is that this program uses "
  102.         "ClassAct for its user interface, which makes it look and feel a bit "
  103.         "different. The functionality is the same though. You need to have "
  104.         "ClassAct installed in order to use this version of the preferences "
  105.         "program. ClassAct is NOT included with ReqTools.\n"
  106.     )
  107. )
  108.  
  109. (set #item-guide-help
  110.     (cat
  111.         "    ReqTools.guide: The manual, in AmigaGuide® format. It contains "
  112.         "some general information about ReqTools, and documentation over "
  113.         "the preferences program and RTPatch.\n"
  114.     )
  115. )
  116.  
  117. (set #item-local-help
  118.     (cat
  119.         "    Tranlsations: If you install a translation, then ReqTools (both "
  120.         "reqtools.library and the preferences editor) can operate in the "
  121.         "language(s) you select.\n"
  122.     )
  123. )
  124.  
  125. (set #item-patch-help
  126.     (cat
  127.         "    RTPatch: A small support program that will re-route functions from "
  128.         "most popular requester libraries to ReqTools. It also improves some "
  129.         "system requesters (in Intuition).\n"
  130.     )
  131. )
  132.  
  133. (set #parts-footer-help
  134.     (cat
  135.         "    For more information about these items, please see the manual. "
  136.         "The items selected by default are based on your current "
  137.         "configuration. E.g., the ClassAct version of ReqTools preferences "
  138.         "is only selected if ClassAct seems to be installed.\n"
  139.     )
  140. )
  141.  
  142. ; Only for expert users
  143. (set #where-library "Where would you like to install reqtools.library?")
  144.  
  145. (set #where-library-help
  146.     (cat
  147.         "    reqtools.library is a shared library. As such, the system "
  148.         "(and applications using ReqTools) expects this file to be "
  149.         "avilable via the \"Libs:\"-assign, so please install this "
  150.         "file into the \"Libs:\" drawer, or make sure that the "
  151.         "drawer you install it in will be a part of your "
  152.         "\"Libs:\"-assign.\n"
  153.     )
  154. )
  155.  
  156. (set #where-prefs "Where would you like to install the preferences program?")
  157.  
  158. (set #where-prefs-help
  159.     (cat
  160.         "    As a preferences editor, a good location to install the program "
  161.         "in could be where the other preferences editors are located, "
  162.         "namely in \"Sys:Prefs\". However, there is no requirement to "
  163.         "install it there, so you can place it whereever you find "
  164.         "convenient.\n"
  165.     )
  166. )
  167.  
  168. (set #where-ca-prefs
  169.     "Where would you like to install the preferences program (the ClassAct version)?"
  170. )
  171.  
  172. (set #where-ca-prefs-help #where-prefs-help)
  173.  
  174. (set #where-guide "Where would you like to install ReqTools.guide?")
  175.  
  176. (set #where-guide-help
  177.     (cat
  178.         "    ReqTools.guide is a file in the standard AmigaGuide® format. "
  179.         "As ReqTools (either the library or the preferences editor) "
  180.         "currently makes specific use of this file, you can install "
  181.         "it whereever you find convenient. If you have OS 3.0 or higher, "
  182.         "one such place is \"Help:\", as this is where other AmigaGuide® "
  183.         "files often are installed.\n"
  184.     )
  185. )
  186.  
  187. ; Only for expert users, and an icon wasn't found
  188. (set #copy-guide-icon "Do you want to install the icon for ReqTools.guide?")
  189.  
  190. (set #copy-guide-icon-help
  191.     (cat
  192.         "    Since you stated that you are an expert user, and there currently "
  193.         "is no icon for ReqTools.guide where you selected to install it, "
  194.         "you get a chance to decide if the icon should be installed as well.\n"
  195.     )
  196. )
  197.  
  198. (set #which-language "Which languages should be installed?")
  199.  
  200. (set #which-language-help
  201.     (cat
  202.         "    The Amiga can be operated in many different languages. If you "
  203.         "want Visage to use the same language as your Amiga Workbench, "
  204.         "then a couple of catalog files must be copied to your harddisk "
  205.         "for each language supported.\n"
  206.         "    To reduce the amount of space consumed by the language files, "
  207.         "you can select to have only the files of specific languages "
  208.         "copied.\n"
  209.         "    Simply check the boxes of the languages you wish to have have "
  210.         "available on your system.\n"
  211.     )
  212. )
  213.  
  214. (set #where-patch "Where would you like to install RTPatch?")
  215.  
  216. (set #where-patch-help
  217.     (cat
  218.         "    If you want RTPatch to be automatically started each time "
  219.         "your Amiga starts, then you can place RTPatch in the drawer "
  220.         "\"Sys:WBStartup\". Otherwise select any drawer you find convenient, "
  221.         "though a drawer in the command search path would be a good idea.\n"
  222.         "    Please note that RTPatch requires that no program is currently "
  223.         "using either Asl, Arp or the Req libraries when RTPatch is started. "
  224.         "Thus, RTPatch in the WBStartup-drawer might not work. If that is the "
  225.         "case, make sure RTPatch have the highest start priority (set with "
  226.         "the STARTPRI tooltype), and that no program that uses any of the "
  227.         "above mentioned libraries is started in your \"S:User-Startup\"-file. "
  228.         "This is normally not the case.\n"
  229.         "    Please see the manual for details on RTPatch, and how to "
  230.         "configure it.\n"
  231.     )
  232. )
  233.  
  234. (set #convert-guide "Converting ReqTools.guide...")
  235.  
  236. (set #copy "Copying %s to %s...")
  237.  
  238. ;**************************************************************************
  239. ;
  240. ; German strings
  241. ;
  242.  
  243. (if (= @language "deutsch")
  244.     (
  245.         (set #default-lang #german-lang)
  246.     )
  247. )
  248.  
  249.  
  250. ;**************************************************************************
  251. ;
  252. ; Spanish strings
  253. ;
  254.  
  255. (if (= @language "español")
  256.     (
  257.         (set #default-lang #spanish-lang)
  258.     )
  259. )
  260.  
  261.  
  262. ;**************************************************************************
  263. ;
  264. ; French strings
  265. ;
  266.  
  267. (if (= @language "francais")
  268.     (
  269.         (set #default-lang #french-lang)
  270.     )
  271. )
  272.  
  273.  
  274. ;**************************************************************************
  275. ;
  276. ; Italian strings
  277. ;
  278.  
  279. (if (= @language "italiano")
  280.     (
  281.         (set #default-lang #italian-lang)
  282.     )
  283. )
  284.  
  285.  
  286. ;**************************************************************************
  287. ;
  288. ; Norwegian strings
  289. ;
  290.  
  291. (if (= @language "norsk")
  292.     (
  293.         (set #default-lang #norwegian-lang)
  294.     )
  295. )
  296.  
  297.  
  298. ;**************************************************************************
  299. ;
  300. ; Russian strings
  301. ;
  302.  
  303. (if (= @language "russian")
  304.     (
  305.         (set #default-lang #russian-lang)
  306.     )
  307. )
  308.  
  309.  
  310. ;**************************************************************************
  311. ;
  312. ; Serbian strings
  313. ;
  314. ;
  315.  
  316. ; .ct
  317. (if (= @language "srpski")
  318.     (
  319.         (set #default-lang #serbian-lang)
  320.  
  321.         (set #builtin-lang "(ugraÐen)")
  322.  
  323.         (set #bad-kick
  324.             "Morate imati AmigaOS verzija 2.04 ili noviji da bi koristili ReqTools."
  325.         )
  326.  
  327.         (set #welcome
  328.             (cat
  329.                 "\n\nDobrodoçli u program za instalaciju ReqTools-a.\n\n"
  330.                 "Pomo†u ovog programa mo§ete instalirati ReqTools i "
  331.                 "povezane programe na vaçu Amigu.\n\n"
  332.                 "ProŸitajte ReqTools.guide za viçe informacija o "
  333.                 "distribuciji i komercijalnom koriç†enju ReqTools-a.\n\n"
  334.                 "ReqTools © 1991-94 Nico Francois, 1995-97 Magnus Holmgren."
  335.             )
  336.         )
  337.  
  338.         (set #install-parts "Odaberite delove koje §elite da instalirate")
  339.  
  340.         (set #item-library "reqtools.library")
  341.  
  342.         (set #item-prefs "ReqTools preference")
  343.  
  344.         (set #item-ca-prefs "ReqTools preference (ClassAct verzija)")
  345.  
  346.         (set #item-guide "ReqTools.guide")
  347.  
  348.         (set #item-locale "Prevodi")
  349.  
  350.         (set #item-patch "RTPatch")
  351.  
  352.         (set #parts-header-help
  353.             (cat
  354.                 "    Ovde birate koje delove ReqTools paketa §elite da instalirate. "
  355.                 "Posle toga birate detalje instalacije tj. gde †e odreÐeni fajlovi "
  356.                 "biti instalirani. Mo§ete odabrati slede†e elemente:\n"
  357.             )
  358.         )
  359.  
  360.         (set #item-library-help
  361.             (cat
  362.                 "    ReqTools.library: Glavni deo ReqTools paketa. To je tzv. "
  363.                 "\" deljena\" biblioteka (upitniŸkih) funkcija.\n"
  364.             )
  365.         )
  366.  
  367.         (set #item-prefs-help
  368.             (cat
  369.                 "    ReqTools preference: ovim programom mo§ete podesiti "
  370.                 "ponaçanje raznih ReqTools upitnika, mada programi koji koriste "
  371.                 "ReqTools imaju zadnju reŸ po tom pitanju.\n"
  372.             )
  373.         )
  374.  
  375.         (set #item-ca-prefs-help
  376.             (cat
  377.                 "    ReqTools preference (ClassAct verzija): Ovaj program radi isto "
  378.                 "çto i ReqTools preference. razlika je tome çto ovaj program koristi "
  379.                 "ClassAct za korisniŸki interfejs, çto ga Ÿini neçto drugaŸijim."
  380.                 "MeÐutim funkcionalnost je ista. TakoÐe treba da imate instaliran "
  381.                 "ClassAct da bi koristili ovu verziju preferenci. ClassAct NIJE "
  382.                 "u u paketu sa ReqTools-om.\n"
  383.             )
  384.         )
  385.  
  386.         (set #item-guide-help
  387.             (cat
  388.                 "    ReqTools.guide: Uputstvo u AmigaGuide® formatu. Sadr§i neke "
  389.                 "opçte informacije o ReqTools-u, kao i dokumentaciju prefs programa "
  390.                 "i RTPatch-a.\n"
  391.             )
  392.         )
  393.  
  394.         (set #item-local-help
  395.             (cat
  396.                 "    Prevodi: Ako instalirate prevod, onda †e ReqTools (i "
  397.                 "reqtools.library i editor preferenci) raditi na jeziku koji "
  398.                 "ste odabrali.\n"
  399.             )
  400.         )
  401.  
  402.         (set #item-patch-help
  403.             (cat
  404.                 "    RTPatch: Mali dodatni program prebacuje funkcije najpopularnijih "
  405.                 "koji preusmerava upitnike na ReqTools. TakoÐe poboljçava sistemske "
  406.                 "upitnike (u Intuiticiji).\n"
  407.             )
  408.         )
  409.  
  410.         (set #parts-footer-help
  411.             (cat
  412.                 "    Za viçe informacija o ovim elemenatima, pogledajte u "
  413.                 "uputstvo. Elementi odabrani pri startovanju odra§avaju vaçu "
  414.                 "konfiguraciju. Na primer, ClassAct verzija ReqTools preferenci "
  415.                 "bi†e odabrana ako izgleda da je ClassAct instaliran.\n"
  416.             )
  417.         )
  418.  
  419.         ; Only for expert users
  420.         (set #where-library "Gde §elite da instalirate reqtools.library?")
  421.  
  422.         (set #where-library-help
  423.             (cat
  424.                 "    reqtools.library je "deljena" biblioteka. Kao takva, sistem "
  425.                 "(i aplikacije koje koriste ReqTools) oŸekuju da fajl bude "
  426.                 "dostupan kroz \"Libs:\" asajn, zato vas molimo da instalirate "
  427.                 "fajl u \"Libs:\" direktorijum, ili u direktorijum koji je deo "
  428.                 "\"Libs:\" asajna.\n"
  429.             )
  430.         )
  431.  
  432.         (set #where-prefs "Gde §elite da instalirate prefs program?")
  433.  
  434.         (set #where-prefs-help
  435.             (cat
  436.                 "    Kao prefs editor, dobro mesto za instaliranje programa "
  437.                 "moglo bi da bude direktorijum gde su instalirani ostali "
  438.                 "prefs programi tj. \"Sys:Prefs\". Nije obavezno da ga  "
  439.                 "instalirate u taj direktorijum, pa ga mo§ete staviti "
  440.                 "gde god §elite.\n"
  441.             )
  442.         )
  443.  
  444.         (set #where-ca-prefs
  445.             "gde §elite da instalirate prefs program (ClassAct verzija)?"
  446.         )
  447.  
  448.         (set #where-ca-prefs-help #where-prefs-help)
  449.  
  450.         (set #where-guide "Gde §elite da instalirate ReqTools.guide?")
  451.  
  452.         (set #where-guide-help
  453.             (cat
  454.                 "    ReqTools.guide je fajl u standardnom AmigaGuide® formatu. "
  455.                 "Kako ReqTools (bilo bilioteka ili prefs editor) trenutno "
  456.                 "specifiŸno korite ovaj fajl, mo§ete ga instalirati gde god "
  457.                 "§elite. Ako imate AmigaOS 3.0 ili viçi, dobro mesto je "
  458.                 "\"Help:\" direktorijum, jer je to mesto gde se AmigaGuide® "
  459.                 "fajlovi Ÿesto instaliraju.\n"
  460.             )
  461.         )
  462.  
  463.         ; Only for expert users, and an icon wasn't found
  464.         (set #copy-guide-icon "Da li §elite da instalirate ikonu za ReqTools.guide?")
  465.  
  466.         (set #copy-guide-icon-help
  467.             (cat
  468.                 "    Poçto ste naglasili da ste iskusan korisnik, a trenutno nema "
  469.                 "ikone za ReqTools.guide tamo gde §elite da ga instalirate, "
  470.                 "imate priliku da odaberete da li §elite da je instalirate.\n"
  471.             )
  472.         )
  473.  
  474.         (set #which-language "Koje jezike §elite da instalirate?")
  475.  
  476.         (set #which-language-help
  477.             (cat
  478.                 "    Amiga mo§e da radi na razliŸitim jezicima. Ako §elite da "
  479.                 "Visage koristi isti jezik kao vaç VorkbenŸ, onda mora biti "
  480.                 "kopirano nekoliko katalog fajlova na hard disk za svaki "
  481.                 "podr§ani jezik.\n"
  482.                 "    Da bi se smanjilo mesto potrebno kataloge, mo§ete odabrati "
  483.                 "da se koriraju samo fajlovi odreÐenog jezika.\n"
  484.                 "    Samo obele§ite koje jezike §elite da imate u vaçem sistemu.\n"
  485.             )
  486.         )
  487.  
  488.         (set #where-patch "Gde §elite da instalirate RTPatch?")
  489.  
  490.         (set #where-patch-help
  491.             (cat
  492.                 "    Ako §elite da se RTPatch startuje svaki put kad startujete "
  493.                 "Amigu , onda stavite RTPatch u direktorijum \"Sys:WBStartup\". "
  494.                 "U drugom sluŸaju odaberite slobodno gde §elite da ga instalirate, "
  495.                 "ali bi dobro bilo da to bude u negde u path-u.\n"
  496.                 "    Poçto RTPatch zahteva da nijedan drugi program ne koristi "
  497.                 "bilo Asl, Arp ili Req biblioteke kada je RTPatch startovan. "
  498.                 "Zbog toga, RTPatch u WBStartup direktorijumu mo§da ne†e raditi. "
  499.                 "U tom sluŸaju potrudite se da RTPatch ima najviçi prioritet "
  500.                 "startovanja (podesite to preko STARTPRI tul tajpa), kao i to "
  501.                 "da nijedan program koji se koristi pomenute biblioteke nije "
  502.                 "startovan u \"S:User-Startup\" fajlu. To uglavnom nije sluŸaj.\n"
  503.                 "    Za detalje o RTPatch-u, kao i za informacije o podeçavanju "
  504.                 "pogladajte u uputstvo.\n"
  505.             )
  506.         )
  507.  
  508.         (set #convert-guide "Konvertujem ReqTools.guide...")
  509.  
  510.         (set #copy "Kopiram %s u %s...")
  511.     )
  512. )
  513.  
  514.  
  515. ;**************************************************************************
  516. ;
  517. ; Finnish strings
  518. ;
  519.  
  520. ; .ct
  521. (if (= @language "suomi")
  522.     (
  523.         (set #default-lang #finnish-lang)
  524.     )
  525. )
  526.  
  527.  
  528. ;**************************************************************************
  529. ;
  530. ; Swedish strings
  531. ;
  532.  
  533. (if (= @language "svenska")
  534.     (
  535.         (set #default-lang #swedish-lang)
  536.  
  537.         (set #builtin-lang "(inbyggt)")
  538.  
  539.         (set #bad-kick
  540.             "Du måste ha AmigaOS version 2.04 eller högre för att använda ReqTools."
  541.         )
  542.  
  543.         (set #welcome
  544.             (cat
  545.                 "\n\nVälkommen till Installeraren.\n\n"
  546.                 "Det här programmet låter dig installera ReqTools och "
  547.                 "relaterade program i din Amiga.\n\n"
  548.                 "Läs ReqTools.guide för information om distributionen "
  549.                 "och det kommersiella användandet av ReqTools.\n\n"
  550.                 "ReqTools © 1991-94 Nico François, 1995-97 Magnus Holmgren."
  551.             )
  552.         )
  553.  
  554.         (set #install-parts "Välj de delar du vill installera")
  555.  
  556.         (set #item-library "reqtools.library")
  557.  
  558.         (set #item-prefs "ReqTools inställningar")
  559.  
  560.         (set #item-ca-prefs "ReqTools inställningar, använder ClassAct")
  561.  
  562.         (set #item-guide "ReqTools.guide")
  563.  
  564.         (set #item-locale "Översättningar")
  565.  
  566.         (set #item-patch "RTPatch")
  567.  
  568.         (set #parts-header-help
  569.             (cat
  570.                 "  Här väljer du de olika delarna av ReqTools som du "
  571.                 "installera. Efter det anger du detaljerna om "
  572.                 "installationen (såsom var de olika filerna ska "
  573.                 "installeras). Du kan välja mellan följande delar:\n"
  574.             )
  575.         )
  576.  
  577.         (set #item-library-help
  578.             (cat
  579.                 "  ReqTools.library: Det här är den centrala delen av "
  580.                 "ReqTools. Ett så kallat delat bibliotek (eng. shared "
  581.                 "library) som innehåller de olika (dialogrute)"
  582.                 "funktionerna.\n"
  583.             )
  584.         )
  585.  
  586.         (set #item-prefs-help
  587.             (cat
  588.                 "  ReqTools inställningar: Med det här programmet kan du "
  589.                 "justera hur de olika dialogrutorna i ReqTools ska "
  590.                 "uppträda, även om programmet som använder ReqTools "
  591.                 "har sista ordet om detta.\n"
  592.             )
  593.         )
  594.  
  595.         (set #item-ca-prefs-help
  596.             (cat
  597.                 "  ReqTools inställningar, använder ClassAct: Det här "
  598.                 "programmet gör samma saker som ReqTools inställningar. "
  599.                 "Skillnaden är att det här programmet använder ClassAct "
  600.                 "för sitt användargränssnitt, vilket gör att det ser "
  601.                 "lite annorlunda ut. Funktionaliteten är dock densamma. "
  602.                 "Du behöver ha ClassAct installerat för att kunna "
  603.                 "använda den här versionen av inställningsredigeraren. "
  604.                 "ClassAct följer INTE med ReqTools.\n"
  605.             )
  606.         )
  607.  
  608.         (set #item-guide-help
  609.             (cat
  610.                 "  ReqTools.guide: Manualen, i AmigaGuide®-format. Den "
  611.                 "innehåller en del allmän information om ReqTools, samt "
  612.                 "dokumentation för inställningsredigeraren och "
  613.                 "RTPatch.\n"
  614.             )
  615.         )
  616.  
  617.         (set #item-local-help
  618.             (cat
  619.                 "  Översättningar: Om du installerar en översättning, så "
  620.                 "kan ReqTools (både reqtools.library och "
  621.                 "inställningsredigeraren) använda de språk du väljer.\n"
  622.             )
  623.         )
  624.  
  625.         (set #item-patch-help
  626.             (cat
  627.                 "  RTPatch: Ett litet extra program, som dirigerar om "
  628.                 "dialogrutefunktioner från de vanligaste "
  629.                 "\"dialogrutebiblioteken\" till ReqTools. Programmet "
  630.                 "förbättrar även några systemdialogrutor (i Intuition).\n"
  631.             )
  632.         )
  633.  
  634.         (set #parts-footer-help
  635.             (cat
  636.                 "  För mer information om de olika delarna, se manualen. "
  637.                 "Vilka delar som är förvalda beror på din konfiguration. "
  638.                 "Till exempel så förväljs den ClassAct-baserade versionen "
  639.                 "av ReqTools inställningar om ClassAct verkar vara "
  640.                 "installerad.\n"
  641.             )
  642.         )
  643.  
  644.         ; Only for expert users
  645.         (set #where-library "Var vill du installera reqtools.library?")
  646.  
  647.         (set #where-library-help
  648.             (cat
  649.                 "  reqtools.library är ett delat bibliotek. Som sådant "
  650.                 "förväntar sig systemet (och program som använder "
  651.                 "ReqTools) att denna filen finns tillgänglig via "
  652.                 "tilldelningen \"Libs:\". Du bör alltså installera "
  653.                 "den här filen i \"Libs:\"-lådan, eller se till att "
  654.                 "den låda du installerar den i kommer att bli en del "
  655.                 "av din \"Libs:\"-tilldelning.\n"
  656.             )
  657.         )
  658.  
  659.         (set #where-prefs "Var vill du installera ReqTools inställningar?")
  660.  
  661.         (set #where-prefs-help
  662.             (cat
  663.                 "  Eftersom det är en inställningsredigerare, så "
  664.                 "är ett lämpligt ställe för programmet den låda "
  665.                 "där de andra inställningsredigerarna finns, det "
  666.                 "vill säga i \"Sys:Prefs\". Det finns dock inte "
  667.                 "något krav på att installera den där, så du kan "
  668.                 "installera programmet där du finner det "
  669.                 "lämpligt.\n"
  670.             )
  671.         )
  672.  
  673.         (set #where-ca-prefs
  674.             "Var vill du installera ReqTools inställningar (ClassAct-versionen)?"
  675.         )
  676.  
  677.         (set #where-ca-prefs-help #where-prefs-help)
  678.  
  679.         (set #where-guide "Var vill du installera ReqTools.guide?")
  680.  
  681.         (set #where-guide-help
  682.             (cat
  683.                 "  ReqTools.guide är en fil i AmigaGuide®-format. "
  684.                 "Då ReqTools (varken biblioteket eller "
  685.                 "inställningsredigeraren) för tillfället använder "
  686.                 "denna fil till något speciellt, så kan du installera "
  687.                 "den där du finner det lämpligt. Om du har OS 3.0 "
  688.                 "eller högre, så kan ett lämpligt ställe vara "
  689.                 "\"Help:\", eftersom andra AmigaGuide®-filer ofta "
  690.                 "installeras där.\n"
  691.             )
  692.         )
  693.  
  694.         ; Only for expert users, and an icon wasn't found
  695.         (set #copy-guide-icon "Vill du installera ikonen för ReqTools.guide?")
  696.  
  697.         (set #copy-guide-icon-help
  698.             (cat
  699.                 "  Eftersom du angav att du är en expertanvändare, "
  700.                 "och det för tillfället inte finns någon ikon för "
  701.                 "ReqTools.guide där du valde att installera "
  702.                 "ReqTools.guide, får du här en möjlighet att "
  703.                 "avgöra om ikonen också ska installeras.\n"
  704.             )
  705.         )
  706.  
  707.         (set #which-language "Vilka språk ska installeras?")
  708.  
  709.         (set #which-language-help
  710.             (cat
  711.                                 "  Amigan kan arbeta med flera olika språk. Om du vill att "
  712.                                 "Visage ska använda samma språk som Amiga Workbench så "
  713.                                 "måste en så kallad katalogfil kopieras till din systemdisk "
  714.                                 "för varje språk.\n"
  715.                                 "  För att minimera diskutrymmet för språkfiler kan du välja "
  716.                                 "att bara installera filerna för vissa språk.\n"
  717.                                 "  Markera bara rutorna för de språk du önskar installera i "
  718.                                 "din dator.\n"
  719.             )
  720.         )
  721.  
  722.         (set #where-patch "Var vill du installera RTPatch?")
  723.  
  724.         (set #where-patch-help
  725.             (cat
  726.                 "  Om du vill att RTPatch ska startas automatiskt varje "
  727.                 "gång din Amiga startar, så kan du placera RTPatch i lådan "
  728.                 "\"Sys:WBStartup\". Annars kan du välja en godtycklig låda "
  729.                 "som du tycker är lämplig, även om en låda i kommandosökvägen "
  730.                 "kan vara en bra ide.\n"
  731.                 "  Lägg märke till att RTPatch kräver att det inte är några "
  732.                 "program som använder antingen Asl-, Arp- eller Req-biblioteken "
  733.                 "när RTPatch startas. På grund av detta kanske det inte "
  734.                 "fungerar att ha RTPatch i WBStartup-lådan. Om så är fallet, "
  735.                 "se till att RTPatch har den högsta startprioriteten (som "
  736.                 "sätts med verktygstypen STARTPRI), och att inga program "
  737.                 "som använder något av ovanstående bibliotek startas i din "
  738.                 "\"S:User-Startup\"-fil. Detta sker normalt sett inte.\n"
  739.                 "  Se manualen för detaljer om RTPatch och om hur du "
  740.                 "konfiugrerar RTPatch.\n"
  741.             )
  742.         )
  743.  
  744.         (set #convert-guide "Konverterar ReqTools.guide...")
  745.  
  746.         (set #copy "Kopierar %s till %s...")
  747.     )
  748. )
  749.  
  750. ;**************************************************************************
  751. ;
  752. ; Czech strings
  753. ;
  754.  
  755. ; .ct
  756. (if (= @language "ãeótina")
  757.     (
  758.         (set #default-lang #czech-lang)
  759.     )
  760. )
  761.  
  762.  
  763. ;**************************************************************************
  764. ;
  765. ; The actual installaion script
  766. ;
  767. ; First some initializations
  768. ;
  769.  
  770. ; Check Kickstart version. Exit if not at least 2.04
  771. (if (< (/ (getversion) 65536) 37)
  772.         (abort #bad-kick)
  773. )
  774.  
  775. ; Since files are scatter installed, don't mention any specific location.
  776. (set @default-dest "")
  777.  
  778. ; Request proportinal fonts, if supported. This string is
  779. ; prepended to the first askoptions choice.
  780. (if (>= @installer-version 2752518)     ; 42 * 65536 + 6
  781.     ; At least version 42.6
  782.     (set #propfont "p")
  783.     ; Pre V42
  784.     (set #propfont "")
  785. )
  786.  
  787. (set #item-num-lib       1)
  788. (set #item-num-prefs     2)
  789. (set #item-num-ca-prefs  4)
  790. (set #item-num-guide     8)
  791. (set #item-num-locale   16)
  792. (set #item-num-patch    32)
  793.  
  794. ; Find out default values for parts to install
  795. (set #install-default (BITOR #item-num-lib #item-num-prefs #item-num-guide))
  796.  
  797. ; ClassAct installed?
  798. (if (= 1 (exists "Libs:Gadgets/layout.gadget" (noreq)))
  799.     (set #install-default (BITOR #install-default #item-num-ca-prefs))
  800. )
  801.  
  802. ; Locale installed?
  803. (if (AND (= 2 (exists "Locale:" (noreq))) (< 0 (getversion "locale.library" (resident))))
  804.     (set #install-default (BITOR #install-default #item-num-locale))
  805. )
  806.  
  807. ; RTPatch installed? Simplistic check really, but...
  808. (if (OR (exists "C:RTPatch") (exists "Sys:WBStartup"))
  809.     (set #install-default (BITOR #install-default #item-num-patch))
  810. )
  811.  
  812. ; Everything ready
  813. (message #welcome)
  814.  
  815. (welcome)
  816.  
  817. ; Ask the user what to install
  818. (set #install-files
  819.     (askoptions
  820.         (prompt    #install-parts)
  821.         (help    #parts-header-help
  822.             #item-library-help
  823.             #item-prefs-help
  824.             #item-ca-prefs-help
  825.             #item-guide-help
  826.             #item-local-help
  827.             #item-patch-help
  828.             #parts-footer-help "\n"
  829.             @askoptions-help)
  830.         (choices
  831.             (cat #propfont #item-library)
  832.             #item-prefs
  833.             #item-ca-prefs
  834.             #item-guide
  835.             #item-locale
  836.             #item-patch
  837.         )
  838.         (default #install-default)
  839.     )
  840. )
  841.  
  842. ; Ask the user for the location of all parts
  843.  
  844. (set #library-dest  "Libs:")
  845.  
  846. ; Location for reqtools.library (for experts)
  847. (if (AND (= @user-level 2) (BITAND #install-files #item-num-lib))
  848.     (set #library-dest
  849.         (askdir
  850.             (prompt  #where-library)
  851.             (help    #where-library-help "\n" @askdir-help)
  852.             (default #library-dest)
  853.         )
  854.     )
  855. )
  856.  
  857. (set #prefs-dest    "Sys:Prefs")
  858.  
  859. ; Location for preferences (for non-novices)
  860. (if (AND (<> @user-level 0) (BITAND #install-files #item-num-prefs))
  861.     (set #prefs-dest
  862.         (askdir
  863.             (prompt  #where-prefs)
  864.             (help    #where-prefs-help "\n" @askdir-help)
  865.             (default #prefs-dest)
  866.         )
  867.     )
  868. )
  869.  
  870. (set #ca-prefs-dest #prefs-dest)
  871.  
  872. ; Location for ClassAct preferences (for non-novices)
  873. (if (AND (<> @user-level 0) (BITAND #install-files #item-num-ca-prefs))
  874.     (set #ca-prefs-dest
  875.         (askdir
  876.             (prompt  #where-ca-prefs)
  877.             (help    #where-ca-prefs-help "\n" @askdir-help)
  878.             (default #ca-prefs-dest)
  879.         )
  880.     )
  881. )
  882.  
  883. ; Location for ReqTools.guide
  884. (if (BITAND #install-files #item-num-guide)
  885.     (
  886.         (set #guide-dest "Work:")
  887.  
  888.         (if (exists "Help:")
  889.             (set #guide-dest "Help:")
  890.         )
  891.  
  892.         (set #guide-dest
  893.             (askdir
  894.                 (prompt  #where-guide)
  895.                 (help    #where-guide-help "\n" @askdir-help)
  896.                 (default #guide-dest)
  897.             )
  898.         )
  899.  
  900.         (set #dest-guide-name (tackon #guide-dest "Visage.guide.info"))
  901.  
  902.         (set #guide-icon
  903.             (if (AND (= @user-level 2 ) (= (exists #dest-guide-name) 0))
  904.                 (askbool
  905.                     (prompt #copy-guide-icon)
  906.                     (help    #copy-guide-icon-help " ")
  907.                 )
  908.                 1    ; Default is to copy the icon
  909.             )
  910.         )
  911.     )
  912. )
  913.  
  914. ; .ct
  915. ; Which languages should be installed?
  916. (if (BITAND #install-files #item-num-locale)
  917.     (set #lang
  918.         (askoptions
  919.             (prompt    #which-language)
  920.             (help    #which-language-help "\n" @askoptions-help)
  921.             (choices
  922.                 (cat #propfont "Dansk")
  923.                 "Deutsch"
  924.                 (cat "English  " #builtin-lang)
  925.                 "Español"
  926.                 "Français"
  927.                 "Italiano"
  928.                 "Magyar"
  929.                 "Nederlands"
  930.                 "Norsk"
  931.                 "Polski"
  932.                 "Português"
  933.                 "Russian"
  934.                 "Srpski"
  935.                 "Suomi"
  936.                 "Svenska"
  937.                 "Ãeótina"
  938.             )
  939.             (default #default-lang)
  940.         )
  941.     )
  942. )
  943.  
  944. ; Location for RTPatch
  945. (if (BITAND #install-files #item-num-patch)
  946.     (set #patch-dest
  947.         (askdir
  948.             (prompt    #where-patch)
  949.             (help    #where-patch-help "\n" @askdir-help)
  950.             (default "Sys:WBStartup")
  951.         )
  952.     )
  953. )
  954.  
  955.  
  956. ; Everything set up. Now do the actual installation
  957.  
  958. (complete 0)
  959.  
  960. (if (BITAND #install-files #item-num-lib)
  961.     (
  962.         (copylib
  963.             (prompt    (#copy "reqtools.library" #library-dest))
  964.             (source    "libs/reqtools.library")
  965.             (dest    #library-dest)
  966.         )
  967.     )
  968. )
  969.  
  970. (complete 20)
  971.  
  972. (if (BITAND #install-files #item-num-prefs)
  973.     (
  974.         (copylib
  975.             (prompt    (#copy "ReqTools" #prefs-dest))
  976.             (source    "Prefs/ReqTools")
  977.             (dest    #prefs-dest)
  978.         )
  979.  
  980.         (copyfiles
  981.             (prompt (#copy "ReqTools.info" #prefs-dest))
  982.             (source "Prefs/ReqTools.info")
  983.             (dest   #prefs-dest)
  984.         )
  985.     )
  986. )
  987.  
  988. (complete 40)
  989.  
  990. (if (BITAND #install-files #item-num-ca-prefs)
  991.     (
  992.         (copylib
  993.             (prompt    (#copy "CA_ReqTools" #ca-prefs-dest))
  994.             (source    "Prefs/CA_ReqTools")
  995.             (dest    #ca-prefs-dest)
  996.         )
  997.  
  998.         (copyfiles
  999.             (prompt (#copy "CA_ReqTools.info" #ca-prefs-dest))
  1000.             (source "Prefs/CA_ReqTools.info")
  1001.             (dest   #ca-prefs-dest)
  1002.         )
  1003.     )
  1004. )
  1005.  
  1006. (complete 60)
  1007.  
  1008. (if (BITAND #install-files #item-num-guide)
  1009.     (
  1010.         (set #guide-source "ReqTools.guide")
  1011.  
  1012.         (if (> (/ (getversion "Libs:amigaguide.library") 65536) 39)
  1013.             (
  1014.                 (working #convert-guide)
  1015.                 (run "C/FixAG ReqTools.guide T:ReqTools.guide 3" (safe))
  1016.                 (set #guide-source "T:ReqTools.guide")
  1017.             )
  1018.         )
  1019.  
  1020.         (copylib
  1021.             (prompt (#copy "ReqTools.guide" #guide-dest))
  1022.             (source #guide-source)
  1023.             (dest   #guide-dest)
  1024.         )
  1025.  
  1026.         (if (> (/ (getversion "Libs:amigaguide.library") 65536) 39)
  1027.             (delete "T:ReqTools.guide" (safe))
  1028.         )
  1029.  
  1030.         (if #guide-icon
  1031.             (
  1032.                 (copyfiles
  1033.                     (prompt (#copy "ReqTools.guide.info" #guide-dest))
  1034.                     (source "ReqTools.guide.info")
  1035.                     (dest   #guide-dest)
  1036.                 )
  1037.  
  1038.                 (if (< (/ (getversion) 65536) 39)
  1039.                     (tooltype
  1040.                         (dest (tackon destination "ReqTools.guide"))
  1041.                         (setdefaulttool "AmigaGuide")
  1042.                     )
  1043.                 )
  1044.             )
  1045.         )
  1046.     )
  1047. )
  1048.  
  1049. (complete 75)
  1050.  
  1051. ; .ct
  1052. (if (BITAND #install-files #item-num-locale)
  1053.     (
  1054.         (set #n 0)
  1055.  
  1056.         (while
  1057.             (set #language
  1058.                 (select #n
  1059.                     "Dansk"
  1060.                     "Deutsch"
  1061.                     "English"
  1062.                     "Español"
  1063.                     "Français"
  1064.                     "Italiano"
  1065.                     "Magyar"
  1066.                     "Nederlands"
  1067.                     "Norsk"
  1068.                     "Polski"
  1069.                     "Português"
  1070.                     "Russian"
  1071.                     "Srpski"
  1072.                     "Suomi"
  1073.                     "Svenska"
  1074.                     "Ãeótina"
  1075.                     ""
  1076.                 )
  1077.             )
  1078.  
  1079.             (
  1080.                 (if (AND (IN #lang #n) (<> #language "English"))
  1081.                     (
  1082.                         (set #catalog
  1083.                             (tackon "Catalogs"
  1084.                                 (tackon #language "reqtools.catalog")
  1085.                             )
  1086.                         )
  1087.  
  1088.                         (set #destination (tackon "Locale:Catalogs/" #language))
  1089.  
  1090.                         (if (exists #catalog)
  1091.                             (copylib
  1092.                                 (prompt (#copy #catalog #destination))
  1093.                                 (source #catalog)
  1094.                                 (dest   #destination)
  1095.                             )
  1096.                         )
  1097.  
  1098.                         (set #catalog
  1099.                             (tackon "Catalogs"
  1100.                                 (tackon #language "reqtoolsprefs.catalog")
  1101.                             )
  1102.                         )
  1103.  
  1104.                         (if (exists #catalog)
  1105.                             (copylib
  1106.                                 (prompt (#copy #catalog #destination))
  1107.                                 (source #catalog)
  1108.                                 (dest   #destination)
  1109.                             )
  1110.                         )
  1111.                     )
  1112.                 )
  1113.  
  1114.                 (set #n (+ #n 1))
  1115.             )
  1116.         )
  1117.     )
  1118. )
  1119.  
  1120. (complete 90)
  1121.  
  1122. (if (BITAND #install-files #item-num-patch)
  1123.     (
  1124.         (copylib
  1125.             (prompt    (#copy "RTPatch" #patch-dest))
  1126.             (source    "RTPatch")
  1127.             (dest    #patch-dest)
  1128.         )
  1129.  
  1130.         (if (= (exists (cat #patch-dest ".info")) 0)
  1131.             (copyfiles
  1132.                 (prompt (#copy "RTPatch.info" #patch-dest))
  1133.                 (source "RTPatch.info")
  1134.                 (dest   #patch-dest)
  1135.             )
  1136.         )
  1137.     )
  1138. )
  1139.  
  1140. (complete 100)
  1141.  
  1142. (exit)
  1143.